home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / cad / x90lsp.zip / X90.LSP
Text File  |  1993-02-09  |  1KB  |  32 lines
  1. (DEFUN C:X90()
  2. (SETQ P1(OSNAP(GETPOINT "\nInside Corner: ")"quick,inter"))
  3. (SETQ P2(OSNAP(GETPOINT "\nOutside Corner: ")"quick,inter"))
  4. (SETQ D (DISTANCE P1 P2))
  5. (SETQ W (/ D 1.414))
  6. (SETQ WW (* (/ D 1.414) 0.5))
  7. (SETQ W1(* W 1.5))
  8. (SETQ WV1(+ WW 0.32))
  9. (SETQ WV2(+ WW 0.65))
  10. (SETQ A(+(/ Pi 0.2274)(ANGLE P1 P2)))
  11. (SETQ P3(POLAR P1 A(* (DISTANCE P1 P2) 0.793)))
  12. (SETQ A1(+(/ Pi 1.333)(ANGLE P1 P2)))
  13. (SETQ P4(POLAR P1 A1 (/ W 2)))
  14. (SETQ A2(+(* Pi 1.602)(ANGLE P1 P2)))
  15. (SETQ P5(POLAR P1 A2(* (DISTANCE P1 P2) 0.793)))
  16. (SETQ A3(+(* Pi 1.25)(ANGLE P1 P2)))
  17. (SETQ P6(POLAR P1 A3 (/ W 2)))
  18. (SETQ P7(POLAR P6 (* Pi 1.5) (* W 0.33)))
  19. (SETQ P7A (POLAR P7 (* Pi 2) 0.01))
  20. (SETQ P8(POLAR P6 (* Pi 1.5) (* W 0.66)))
  21. (SETQ P8A (POLAR P8 (* Pi 2) 0.01))
  22. (SETQ P9(POLAR P4 (* Pi 2) (* W 0.33)))
  23. (SETQ P9A (POLAR P9 (* Pi 1.5) 0.01))
  24. (SETQ P10(POLAR P4 (* Pi 2) (* W 0.66)))
  25. (SETQ P10A (POLAR P10 (* Pi 1.5) 0.01))
  26. (COMMAND "FILLET" "R" W1  "FILLET" P3 P5)
  27. (COMMAND "FILLET" "R" WW  "FILLET" P4 P6)
  28. (COMMAND "LINE" P3 P4 "")
  29. (COMMAND "LINE" P5 P6 "")
  30. (COMMAND "FILLET" "R" 0))
  31.  
  32.